   1 .
   2 .NIM
   3 .
  10 clear ;BC=0;FC=67;NT=1;&(10)=140;@(1)=78;@(2)=73;@(3)=77;CX=-66;CY=-30;for A=1to 3;TV=@(A);next A;if TR(1)goto 40
  20 for C=-69to -50;for D=-33to -27;if PX(C,D)box (C+81)mul 4-79,(D+30)mul 4,2,2,3;box (C+81)mul 4-79,(D+30)mul 4,4,4,3
  30 MU=80;MU=85;next D;next C
  40 clear ;BC=225;FC=5;&(10)=180;NT=0;K=0;J=0;F=0;CX=-49;CY=25;print "J 0 Y S T I C K :
  50 CY=0;print " PUSH F0R 0NE-PLAYER-GAME";print ;print " PULL F0R TW0-PLAYER-GAME
  60 if JY(1)=1X=1;goto 90
  70 if JY(1)=-1X=2;goto 90
  80 goto 60
  90 BC=170;CY=0;print "PUSH - PLAYER 1 WILL START";print ;if X=2print "PULL - PLAYER 2 WILL START";goto 110
 100 print "PULL - C0MPUTER WILL START
 110 Y=JY(1);if Y=1Z=1;goto 170
 120 if Y=-1if X=2Z=2;goto 170
 130 if Y=-1if X=1Z=3;goto 170
 140 goto 110
 170 M=15;R=2;H=Z;if Z=3H=1
 180 clear ;BC=134;FC=96;gosub 350;box 0,0,160,5,1;box 0,-33,160,5,1;if Z=3goto 280
 190 CY=-10;print " P L A Y E R",#3,H;CY=-23;print " H0W MANY B0XES right 
 200 P=KN(H)div 127+2;CX=37;CY=-23;if P=1print " 0NE
 205 if P=2print " TW0 
 210 if P=3print "THREE
 215 if TR(H)=0goto 200
 220 if P>Mgoto 200
 230 M=M-P;if X=1if M=0goto 400
 240 if M<=0goto 420
 250 gosub 370;if X=2if H=1H=2;gosub 360;goto 190
 260 if H=2H=1;gosub 360;goto 190
 270 if X=1gosub 360;goto 290
 280 gosub 385;P=1;M=M-P;R=R-1;gosub 370;gosub 360;goto 190
 290 if P<=Rgoto 310
 300 R=R+4
 310 if M=1goto 410
 320 R=R-P;if Rgoto 340
 330 R=4;goto 280
 340 P=R;R=4;M=M-P;gosub 385;gosub 370;gosub 360;goto 190
 350 for T=-70to 70step 10;box T,30,7,7,3;next T;T=75;return 
 360 box 0,-16,160,24,2;return 
 370 for A=1to P;box T-5,30,7,7,3;for B=30to -42step -9;box T,B,7,7,3;NT=3;MU=B;box T,B,7,7,3;next B;NT=0;T=T-10;if T=-70goto 410
 380 next A;CX=-33;CY=15;print #2,M," REMAINING";return 
 385 CY=-16;print " C 0 M P U T E R";return 
 390 BC=60;for Q=0to 750;next Q;return 
 400 clear ;CY=0;print "      C0MPUTER WINS!";gosub 390;F=F+1;goto 440
 410 clear ;CY=0;print "        Y0U WIN!!!";gosub 390;K=K+1;goto 440
 420 clear ;CY=0;print "     PLAYER #",#1,H," L0SES!";gosub 390;if H=1J=J+1
 430 if H=2K=K+1
 440 clear ;BC=89;FC=92;box 0,30,160,2,1;box 0,-12,160,2,1;box 0,-15,160,1,1;box 0,9,2, 42,1
 445 CX=-24;CY=40;print "S C 0 R E";CY=16;print "  PLAYER 1";CX=20;CY=16;if X=1print "C0MPUTER
 450 if X=2print "PLAYER 2
 460 CX=-47;CY=0;print #2,K;CX=38;CY=0;if X=1print #2,F
 470 if X=2print #2,J
 480 CY=-27;print " PUSH J0YSTICK F0R REPLAY";CY=-39;print "PULL J0YSTICK F0R NEW GAME
 490 if JY(1)=1clear ;FC=5;goto 90
 500 if JY(1)=-1goto 40
 510 goto 490
>:return 
